home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 September / PCWorld_2006-09_cd.bin / v cisle / pcw / pcw.exe / pcwAutostart1.4.hta < prev   
Text File  |  2006-07-13  |  63KB  |  1,286 lines
  1. <HTML>
  2.  <HEAD>
  3.   <TITLE>Skript PC WORLDu: Vyhledßnφ aplikacφ spouÜt∞jφcφch se p°i startu Windows (verze 1.4)</TITLE>
  4.   <HTA:APPLICATION ID="hta3" 
  5.     APPLICATIONNAME="Autostart" 
  6.     BORDER="thin"
  7.     BORDERSTYLE="normal"
  8.     CAPTION="yes"
  9.     SHOWINTASKBAR="yes"
  10.     SYSMENU="no"
  11.     INNERBORDER = "no"
  12.     MAXIMIZEBUTTON = "no"
  13.     MINIMIZEBUTTON = "no"
  14.     WINDOWSTATE="normal"
  15.     SINGLEINSTANCE="yes"
  16.     CONTEXTMENU = "no"
  17.     SYSMENU = "no">
  18.    
  19.    <STYLE type="text/css">
  20.    
  21. body {    scrollbar-arrow-color: #000000;
  22.         font-family:Verdana;
  23.         font-style:normal;
  24.         font-size:12;
  25.         background-color:Buttonface}
  26.  
  27. .fading    {font-size:14px;
  28.         background-color:#003159;
  29.         color:white;width:400;
  30.         filter:Alpha(style=1, opacity=90, startx=83, finishx=86)
  31.  
  32.    </STYLE>
  33.    <SCRIPT LANGUAGE=vbscript>
  34.  
  35. '|--------------------------------------------------------------------------------------------------|'
  36. on error resume next
  37. Dim myfiles, myshell, Appshell,  INIFile, SYSFile, WINFile, FullBatch
  38. ReDim Apps(0)
  39. ReDim Keys(0)
  40. ReDim DivKey(0)
  41. ReDim BootApp(0)
  42. Set myfiles = CreateObject("Scripting.FileSystemObject")
  43. Set myshell = CreateObject("Wscript.Shell")
  44. Set Appshell = CreateObject("Shell.Application")
  45. Set c = MyShell.Environment("PROCESS")
  46.     Tempdir=c("Temp")
  47.     windir = c("windir")
  48.     userprofile = c("userprofile")
  49.     allusersprofile = c("allusersprofile")
  50. homedrive = Mid(windir, 1, InStr(1, windir, "\", 1)-1)    
  51. winver = myshell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
  52. if winver = "" then
  53.     export = "regedit /e "
  54. else
  55.     export = "regedit /a "
  56. end if
  57. '|--------------------------------------------------------------------------------------------------|'
  58. Sub SubInitFenster
  59. on error resume next
  60. Document.all.KeyText.style.visibility="hidden"
  61. Document.all.item("Button3").disabled=True
  62. Document.all.item("Button6").disabled=True
  63. if not (myfiles.FileExists(windir & "\subinacl.exe")) Then
  64.     Document.all.item("Button4").disabled=True
  65.     Document.all.item("Button5").disabled=False
  66. else
  67.     Document.all.item("Button4").disabled=False
  68.     Document.all.item("Button5").disabled=True
  69. end if
  70.  
  71. Test = MyShell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\pcw_acl")
  72. if Test = "" then
  73.     Rightlabel.Value = "Berechtigungen erteilt..."
  74. else
  75.     Rightlabel.Value = "Berechtigungen entzogen..."
  76. end if
  77. '**********
  78. MasterKey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run"
  79. ReadReg "RegRunLM", MasterKey, Ubound(Divkey)
  80.  
  81. MasterKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run"
  82. ReadReg "RegRunCU", MasterKey, Ubound(Divkey)
  83.  
  84. MasterKey = "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run"
  85. ReadReg "RegRunDF", MasterKey, Ubound(Divkey)
  86.  
  87. MasterKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce"
  88. ReadReg "RegRunOnceLM", MasterKey, Ubound(Divkey)
  89.  
  90. MasterKey = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce"
  91. ReadReg "RegRunOnceCU", MasterKey, Ubound(Divkey)
  92.  
  93. MasterKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices"
  94. ReadReg "RegRunServicesLM", MasterKey, Ubound(Divkey)
  95.  
  96. MasterKey = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices"
  97. ReadReg "RegRunServicesCU", MasterKey, Ubound(Divkey)
  98.  
  99. MasterKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce"
  100. ReadReg "RegRunServicesOnceLM", MasterKey, Ubound(Divkey)
  101.  
  102. MasterKey = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce"
  103. ReadReg "RegRunServicesOnceCU", MasterKey, Ubound(Divkey)
  104.  
  105. MasterKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run"
  106. ReadReg "RegExRunLM", MasterKey, Ubound(Divkey)
  107.  
  108. MasterKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run"
  109. ReadReg "RegExRunCU", MasterKey, Ubound(Divkey)
  110.  
  111. '**********
  112. MasterKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System\Scripts"
  113. ReadReg "ScriptLM", MasterKey, Ubound(Divkey)
  114.  
  115. MasterKey = "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\Scripts"
  116. ReadReg "ScriptCU", MasterKey, Ubound(Divkey)
  117.  
  118. '**********
  119. MasterKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit"
  120. ReadUserInit MasterKey
  121.  
  122. MasterKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\BootExecute"
  123. ReadSessMan MasterKey
  124.  
  125. MasterKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows\load"
  126. ReadLoad MasterKey
  127.  
  128. '**********
  129. MasterFold = userprofile & "\Nabφdka Start\Programy¿Po spuÜt∞nφ"
  130. ReadFold MasterFold
  131.  
  132. MasterFold = allusersprofile & "\Nabφdka Start\Programy¿Po spuÜt∞nφ"
  133. ReadFold MasterFold
  134.  
  135. MasterFold = windir & "\Nabφdka Start\Programy¿Po spuÜt∞nφ"
  136. ReadFold MasterFold
  137.  
  138. '**********
  139. MasterFile = windir & "\Win.ini"
  140. ReadFile MasterFile
  141.  
  142. MasterFile =  windir & "\System.ini"
  143. ReadFile MasterFile
  144.  
  145. '**********
  146. MasterBat = windir & "\Winstart.bat"
  147. ReadBAT MasterBat
  148.  
  149. MasterBat = homedrive & "\Autoexec.bat"
  150. ReadBAT MasterBat
  151.  
  152. MasterBat = homedrive & "\Config.Sys"
  153. ReadBAT MasterBat
  154.  
  155. '**********
  156. MasterKey = "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup"
  157. OverRegFold MasterKey
  158.  
  159. MasterKey = "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup"
  160. OverRegFold MasterKey
  161.  
  162. MasterKey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Startup"
  163. OverRegFold MasterKey
  164.  
  165. MasterKey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Startup"
  166. OverRegFold MasterKey
  167.  
  168. MasterKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup"
  169. OverRegFold MasterKey
  170.  
  171. MasterKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup"
  172. OverRegFold MasterKey
  173.  
  174. MasterKey = windir & "\Tasks"
  175. JobCheck MasterKey
  176.  
  177.  
  178. DivList = ""
  179. xx=0
  180. yy=0
  181. for x=0 to Ubound(DivKey)
  182.     ein = Instr(1, Divkey(x), "nbsp;", 1)
  183.     aus = Instr(1, Divkey(x), "</DIV>", 1)
  184.     nbsp = mid(DivKey(x), ein+5, aus-ein-5)
  185.     if instr(1, DivList, nbsp, 1) = 0 then
  186.         xx = x - yy
  187.         Divkey(x) = Replace(Divkey(x), "ColorSel" & x, "ColorSel" & xx)
  188.         DivList = DivList & DivKey(x)
  189.     else
  190.         yy = yy+1
  191.     end if
  192. next
  193. if DivList = "" then
  194.     DivList = "<DIV>Nebyly nalezeny ₧ßdnΘ polo₧ky</DIV>"
  195. end if
  196. document.all.tableRegKey.innerHTML = DivList
  197. y = Ubound(DivKey)*20+120
  198. window.resizeTo 800, y
  199. Set count = Myfiles.OpentextFile(Tempdir & "\count.txt", 2, True)
  200. count.write Ubound(DivKey)
  201. count.close
  202.  
  203. end Sub
  204. '|--------------------------------------------------------------------------------------------------|'
  205.  
  206. Function ReadReg(Regfile, MasterKey, n)
  207. Redim Preserve Keys(n)
  208. ReDim Preserve DivKey(n)
  209. dim first
  210. dim second
  211. dim third
  212. dim fourth
  213.  
  214. myshell.run export & Tempdir   & "\" & Regfile & ".reg " & chr(34) & MasterKey & chr(34), 0, True
  215. if (myfiles.FileExists(Tempdir & "\" & Regfile & ".reg")) Then
  216.     RRegfile = Tempdir & "\" & Regfile & ".reg"
  217.     Set FRead = Myfiles.OpentextFile(RRegFile, 1, False)
  218.     Keys(n) = FRead.Readall
  219.     FRead.Close
  220.     first = Instr(1, Keys(n), "=", 1)
  221.     second = instr(1, Keys(n), ".", 1)
  222.     third = instr(1, Keys(n), "\", 1)
  223.     fourth = mid(RegFile, 1, 3)
  224.     if not first = 0 and not second = 0 and fourth = "Reg" or not first = 0 and not third = 0 and fourth = "Reg" then
  225.     
  226.         DivKey(n) = "<DIV ID=ColorSel" & n & " Title=" & Chr(34) & Regfile & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &Regfile & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterKey & "</DIV>"
  227.         Redim Preserve Keys(n+1)
  228.         ReDim Preserve DivKey(n+1)
  229.     elseif not Instr(1, Keys(n), "=", 1) = 0 and not Instr(1, lcase(Keys(n)), "script" & Chr(34) & "=", 1 ) = 0 and mid(RegFile, 1, 6) = "Script" then
  230.         DivKey(n) = "<DIV ID=ColorSel" & n & " Title=" & Chr(34) & Regfile & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &Regfile & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterKey & "</DIV>"
  231.         Redim Preserve Keys(n+1)
  232.         ReDim Preserve DivKey(n+1)
  233.     end if
  234. end if
  235. ReadReg = n
  236. end Function
  237.  
  238. '|--------------------------------------------------------------------------------------------------|'
  239. Function ReadUserInit(MasterKey)
  240. m=0
  241. UserInit = myshell.Regread(MasterKey)
  242. if  Instr(1, UserInit, ",", 1) = 0 then UserInit=""
  243. UserInit = Mid(UserInit, Instr(1, UserInit, ",", 1)+1, Len(UserInit))
  244. If not UserInit = "" then
  245.     do
  246.         SearchComma = 0
  247.         SearchComma = Instr(1, UserInit, ",", 1)
  248.         if SearchComma = 0 and not UserInit = "" then
  249.             Redim Preserve Apps(m)
  250.             Apps(m) = UserInit
  251.             exit do
  252.         end if
  253.         Redim Preserve Apps(m)
  254.         Apps(m) = Left(UserInit, SearchComma-1)
  255.         UserInit = Mid(UserInit, SearchComma+1, Len(UserInit))
  256.         m = m+1
  257.     Loop until UserInit = ""
  258.     ReDim Preserve DivKey(Ubound(Divkey))
  259.     DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & "UserInit" & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &"UserInit" & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & Masterkey & "</DIV>"
  260.     ReDim Preserve DivKey(Ubound(Divkey)+1)
  261. end if
  262. End Function
  263. '|--------------------------------------------------------------------------------------------------|'
  264.  
  265. Function ReadSessMan(MasterKey)
  266. BootExecute = myshell.Regread(MasterKey)
  267. m=0
  268. for n = 0  to ubound(bootexecute)
  269.     if not BootExecute(n) = "autocheck autochk *" then
  270.         ReDim Preserve BootApp(m)
  271.         BootApp(m) = BootExecute(n)
  272.         m = m+1
  273.     end if
  274. next
  275. if not BootApp(0) = "" then
  276.     ReDim Preserve DivKey(Ubound(Divkey))
  277.     DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & "BootExecute" & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &"BootExecute" & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & Masterkey & "</DIV>"
  278.     ReDim Preserve DivKey(Ubound(Divkey)+1)
  279. end if
  280. End Function
  281.  
  282. '|--------------------------------------------------------------------------------------------------|'
  283.  
  284. Function ReadLoad(MasterKey)
  285. LoadReg = myshell.Regread(MasterKey)
  286. If not Loadreg = "" then
  287.     ReDim Preserve DivKey(Ubound(Divkey))
  288.     DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & "LoadKey" & Masterkey & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &"LoadKey" & Masterkey & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterKey & "</DIV>"
  289.     ReDim Preserve DivKey(Ubound(Divkey)+1)
  290. end if
  291. End Function
  292. '|--------------------------------------------------------------------------------------------------|'
  293.  
  294. Function OverRegFold(MasterKey)
  295. StartFold = MyShell.RegRead(MasterKey)
  296. if not StartFold = "" then
  297.     ReadFold StartFold
  298. end if
  299. End Function
  300.  
  301. '|--------------------------------------------------------------------------------------------------|'
  302.  
  303. Function ReadFold(MasterFold)
  304. n=0
  305. if (myfiles.FolderExists(MasterFold)) Then
  306.     Set StartFold = MyFiles.GetFolder(MasterFold)
  307.     Set AutoFiles = StartFold.Files
  308.     if (myfiles.FileExists(MasterFold & "\Desktop.ini")) then
  309.         n=1
  310.     end if
  311.     Zaehler = AutoFiles.Count - n
  312.     if  Zaehler > 0 Then
  313.         ReDim Preserve DivKey(Ubound(Divkey))
  314.         DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & MasterFold & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &MasterFold & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterFold & "</DIV>"
  315.         ReDim Preserve DivKey(Ubound(Divkey)+1)
  316.     end if
  317. end if    
  318. End Function
  319.  
  320. '|--------------------------------------------------------------------------------------------------|'
  321.  
  322. Function ReadFile(MasterFile)
  323. on error resume next
  324. if (myfiles.FileExists(MasterFile)) Then
  325.     Set FRead = Myfiles.OpentextFile(MasterFile, 1, False)
  326.     INIFile = FRead.Readall
  327.     LoadStri = Instr(1, lcase(INIFile), "load=", 1)
  328.     if LoadStri = 0 Then LoadStri = Instr(1, lcase(INIFile), "load =", 1)
  329.     if not LoadStri = 0 then
  330.         LoadStro = Instr(LoadStri, INIFile, vbNewLine, 1)
  331.         if LoadStro = 0 then LoadStro = Len(INIFile)
  332.     end if
  333.     RunStri = Instr(1, lcase(INIFile), "run=", 1)
  334.     if RunStri = 0 Then RunStri = Instr(1, lcase(INIFile), "run =", 1)
  335.     if not RunStri = 0 then
  336.         RunStro = Instr(RunStri, INIFile, vbNewLine, 1)
  337.         if RunStro = 0 then RunStro = Len(INIFile)
  338.     end if
  339.     ShellStri = Instr(1, lcase(INIFile), "shell=", 1)
  340.     if ShellStri = 0 Then ShellStri = Instr(1, lcase(INIFile), "shell =", 1)
  341.     if not ShellStri = 0 then
  342.         ShellStro = Instr(ShellStri, INIFile, vbNewLine, 1)
  343.         if ShellStro = 0 then ShellStro = Len(INIFile)
  344.     end if
  345.     if RunStro - RunStri > 4 and not RunStri = 0 or LoadStro - LoadStri > 5 and not LoadStri = 0 then
  346.         WINFile = INIFile
  347.         ReDim Preserve DivKey(Ubound(Divkey))
  348.         DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & MasterFile & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &MasterFile & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterFile & "</DIV>"
  349.         ReDim Preserve DivKey(Ubound(Divkey)+1)
  350.         MasterFile = ""
  351.     elseif ShellStro - ShellStri > 20 and not ShellStri = 0 then
  352.         SYSfile=INIFile
  353.         ReDim Preserve DivKey(Ubound(Divkey))
  354.         DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & MasterFile & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &MasterFile & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterFile & "</DIV>"
  355.         ReDim Preserve DivKey(Ubound(Divkey)+1)
  356.         MasterFile = ""
  357.     end if
  358. end if
  359. End Function
  360. '|--------------------------------------------------------------------------------------------------|'
  361.  
  362. Function ReadBAT(MasterBat)
  363. on error resume next
  364. if (myfiles.FileExists(MasterBat)) Then
  365.     if instr(1, lcase(Masterbat), ".sys", 1) = 0 then
  366.     Set DivFL = myfiles.GetFile(MasterBat)
  367.     DivSize = DivFl.Size
  368.     If DivSize > 0 then
  369.         ReDim Preserve DivKey(Ubound(Divkey))
  370.         DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & MasterBat & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &MasterBat & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterBat & "</DIV>"
  371.         ReDim Preserve DivKey(Ubound(Divkey)+1)
  372.     end if
  373.     else
  374.     Set FRead = Myfiles.OpentextFile(MasterBat, 1, False)
  375.     SYSFull = Fread.ReadAll
  376.     if not instr(1, lcase(sysfull), "install=", 1) = 0 or not instr(1, lcase(sysfull), "install =", 1) = 0 then
  377.         ReDim Preserve DivKey(Ubound(Divkey))
  378.         DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & MasterBat & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &MasterBat & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterBat & "</DIV>"
  379.         ReDim Preserve DivKey(Ubound(Divkey)+1)
  380.     end if
  381.     end if
  382. end if
  383. End Function
  384.  
  385. '|--------------------------------------------------------------------------------------------------|'
  386. Function JobCheck(MasterKey)
  387. on error resume next
  388. x = 0
  389. Set Tasks = myfiles.Getfolder(MasterKey)
  390. Set Jobs = Tasks.Files
  391. For each Job in Jobs
  392.     If InStr(LCase(Job.Name), "desktop.ini") = 0 and InStr(LCase(Job.Name), "sa.dat") = 0 then
  393.         set jobtxt = Job.OpenAsTextStream(1, 0)
  394.         a = Job.size - 16
  395.         jobtxt.skip(a)
  396.         lesen = Hex(Asc(JobTxt.Read(1)))
  397.         jobtxt.close
  398.         if lesen = 6 or lesen = 7 then
  399.             x = 1
  400.         end if
  401.     End if
  402. next
  403. if x = 1 then
  404.     ReDim Preserve DivKey(Ubound(Divkey))
  405.     DivKey(Ubound(Divkey)) = "<DIV ID=ColorSel" & Ubound(Divkey) & " Title=" & Chr(34) & MasterKey & Chr(34) &"><INPUT type=radio name=Sellnk Title=" & Chr(34) &MasterKey & Chr(34) & " onClick=" & Chr(34)& "SubMarkSelection" & Chr(34) & "> " & MasterKey & "</DIV>"
  406.     ReDim Preserve DivKey(Ubound(Divkey)+1)
  407. end if
  408. End Function
  409.  
  410. '|--------------------------------------------------------------------------------------------------|'
  411. Sub SubMarkSelection
  412. on error resume next
  413. n = 0 
  414. Set count = Myfiles.OpentextFile(Tempdir & "\count.txt", 1, False)
  415. zahl = count.readall
  416. count.close
  417. do
  418.     If document.all.Sellnk(n).Checked Then
  419.         document.all.Sellnk(n).style.backgroundColor="salmon"
  420.         document.all.Item("ColorSel" & n).style.backgroundColor="salmon"
  421.         Document.all.KeyText.style.visibility="visible"
  422.         If mid(lcase(document.all.Sellnk(n).Title), 1, 3) = "reg" then
  423.             RegTxtEdit n    
  424.         elseif lcase(document.all.Sellnk(n).Title) = "userinit" then
  425.             InitEdit
  426.         elseif mid(lcase(document.all.Sellnk(n).Title), 1, 6) = "script" then
  427.             ScriptEdit n
  428.         elseif mid(lcase(document.all.Sellnk(n).Title), 1,4) = "load" then
  429.             LoadEdit n
  430.         elseif not Instr(1, lcase(document.all.Sellnk(n).Title), "\autostart", 1) = 0 then
  431.             FoldEdit n
  432.         elseif not Instr(1, lcase(document.all.Sellnk(n).Title), "\win.ini", 1) = 0 then
  433.             FileEdit n
  434.         elseif not Instr(1, lcase(document.all.Sellnk(n).Title), "\system.ini", 1) = 0 then
  435.             SysEdit n
  436.         elseif not Instr(1, lcase(document.all.Sellnk(n).Title), ".bat", 1) = 0 then
  437.             BatEdit n
  438.         elseif not Instr(1, lcase(document.all.Sellnk(n).Title), ".sys", 1) = 0 then
  439.             CSysEdit n
  440.         elseif not Instr(1, lcase(document.all.Sellnk(n).Title), "bootexecute", 1) = 0 then
  441.             BootEdit
  442.         elseif not Instr(1, lcase(document.all.Sellnk(n).Title), "\tasks", 1) = 0 then
  443.             JobEdit n
  444.         end if
  445.         window.resizeTo 800, y+480
  446.     Else
  447.         document.all.Sellnk(n).style.backgroundColor=""
  448.         document.all.Item("ColorSel" & n).style.backgroundColor=""
  449.     End If
  450.     Document.all.item("Button6").disabled=True
  451.     n = n+1
  452. loop until zahl - n = 0
  453. End Sub
  454.  
  455. '|--------------------------------------------------------------------------------------------------|'
  456.  
  457. Sub RegTxtEdit(n)
  458. dim first
  459. dim second
  460. dim third
  461. m=1
  462. x=0
  463. Do
  464.     Zeile = Instr(m, Keys(n), vbNewLine, 1)
  465.     RegText = Mid(Keys(n), m+1, Zeile-m)
  466.     RegText = Replace(RegText, Chr(34), "'")
  467.     first = Instr(1, RegText, "=", 1)
  468.     second = instr(1, RegText, ".", 1)
  469.     third = instr(1, RegText, "\", 1)
  470.     if not first = 0 and not second = 0 or not first = 0 and not third = 0 then
  471.         RegList = RegList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & RegText & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & RegText & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & RegText & "</DIV>"
  472.     x=x+1
  473.     end if
  474.     
  475.     m=Zeile+1
  476.     Document.all.KeyText.innerHTML = RegList
  477.     Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
  478.     countreg.write x
  479.     countreg.close
  480.     
  481. loop until Zeile >= Len(Keys(n))
  482. End Sub
  483.  
  484. '|--------------------------------------------------------------------------------------------------|'
  485.  
  486. Sub InitEdit
  487. For m=0 to Ubound(Apps)
  488.     UserInitList = UserInitList & "<DIV ID=ColorSelR" & m & " Title=" & Chr(34) & Apps(m) & Chr(34) &"><INPUT type=checkbox name=SelReg" & m & " Title=" & Chr(34) & Apps(m) & Chr(34) & " onClick=" & Chr(34)& "SubMarkRegSelection" & Chr(34) & "> " & Apps(m) & "</DIV>"
  489. next
  490. Document.all.KeyText.innerHTML = UserInitList
  491. Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
  492. countreg.write m
  493. countreg.close
  494. End Sub
  495. '|--------------------------------------------------------------------------------------------------|'
  496.  
  497. Sub BootEdit
  498. For m=0 to Ubound(BootApp)
  499.     BootExecList = BootExecList & "<DIV ID=ColorSelR" & m & " Title=" & Chr(34) & BootApp(m) & Chr(34) &"><INPUT type=checkbox name=SelReg" & m & " Title=" & Chr(34) & BootApp(m) & Chr(34) & " onClick=" & Chr(34)& "SubMarkRegSelection" & Chr(34) & "> " & BootApp(m) & "</DIV>"
  500. next
  501. Document.all.KeyText.innerHTML = BootExecList
  502. Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
  503. countreg.write m
  504. countreg.close
  505. End Sub
  506.  
  507. '|--------------------------------------------------------------------------------------------------|'
  508.  
  509. Sub ScriptEdit(n)
  510. m=1
  511. x=0
  512. Do
  513.     Zeile = Instr(m, Keys(n), vbNewLine, 1)
  514.     RegText = Mid(Keys(n), m+1, Zeile-m)
  515.     RegText = Replace(RegText, Chr(34), "'")
  516.     if not instr(1, RegText, "=", 1) = 0 and not instr(1, RegText, "Script", 1) = 0 then
  517.         RegList = RegList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & RegText & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & RegText & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & RegText & "</DIV>"
  518.     x=x+1
  519.     end if
  520.     
  521.     m=Zeile+1
  522.     Document.all.KeyText.innerHTML = RegList
  523.     Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
  524.     countreg.write x
  525.     countreg.close
  526.     
  527. loop until Zeile >= Len(Keys(n))
  528. End Sub
  529.  
  530. '|--------------------------------------------------------------------------------------------------|'
  531.  
  532. Sub LoadEdit(n)
  533. m=0
  534. on error resume next
  535. LKey = Mid(document.all.Sellnk(n).Title, 8, len(document.all.Sellnk(n).Title))
  536. LReg = Myshell.Regread(LKey)
  537. LoadList = "<DIV ID=ColorSelR" & m & " Title=" & chr(34) & LReg & Chr(34) & "><INPUT type=checkbox name=SelReg" & m & " Title=" & chr(34) & LReg & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & LReg & "</DIV>"
  538. Document.all.KeyText.innerHTML = LoadList
  539. Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
  540. countreg.write 1
  541. countreg.close
  542. End Sub
  543.  
  544. '|--------------------------------------------------------------------------------------------------|'
  545.  
  546. Sub FoldEdit(n)
  547. dim Ord
  548. dim Startfold
  549. dim Autofiles
  550. dim Autofile
  551. x=0
  552. Ord = document.all.Sellnk(n).Title
  553. Set StartFold = MyFiles.GetFolder(Ord)
  554. Set AutoFiles = StartFold.Files
  555. For Each AutoFile in AutoFiles
  556.     if instr(1, Lcase(AutoFile), "\desktop.ini", 1) = 0 then
  557.         FoldList = FoldList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & AutoFile & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & AutoFile & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & MyFiles.GetFileName(AutoFile) & "</DIV>"
  558.         x=x+1
  559.     end if
  560. next
  561. Document.all.KeyText.innerHTML = FoldList
  562. Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
  563. countreg.write x
  564. countreg.close
  565. End Sub
  566.  
  567. '|--------------------------------------------------------------------------------------------------|'
  568.  
  569. Sub FileEdit(n)
  570. on error resume next
  571. x=0
  572. Runmehr = 0
  573. Loadmehr = 0
  574. LoadStri = Instr(1, lcase(WINFile), "load=", 1)
  575. if LoadStri = 0 then LoadStri = Instr(1, lcase(WINFile), "load =", 1)
  576. LoadStro = Instr(LoadStri, WINFile, vbNewLine, 1)
  577. if LoadStro = 0 then 
  578.     LoadStro = Len(WINFile)
  579.     Loadmehr = 1
  580. end if
  581. RunStri = Instr(1, lcase(WINFile), "run=", 1)
  582. if RunStri = 0 then RunStri = Instr(1, lcase(WINFile), "run =", 1)
  583. RunStro = Instr(RunStri, WINFile, vbNewLine, 1)
  584. if RunStro = 0 then 
  585.     RunStro = Len(WINFile)
  586.     Runmehr = 1
  587. end if
  588. if LoadStro - LoadStri > 5 and not LoadStri = 0 then
  589.     LoadStr = Mid(WINFile, LoadStri, LoadStro - LoadStri+Loadmehr)
  590.     LoadStr = Replace(LoadStr, Chr(34), "'")
  591.     FileList = FileList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & LoadStr & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & LoadStr & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & LoadStr & "</DIV>"
  592.     x=x+1
  593. end if
  594. if RunStro - RunStri > 4 and not RunStri = 0 then
  595.     RunStr = Mid(WINFile, RunStri, RunStro - RunStri+Runmehr)
  596.     RunStr = Replace(RunStr, Chr(34), "'")
  597.     FileList = FileList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & RunStr & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & RunStr & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & RunStr & "</DIV>"
  598.     x=x+1
  599. end if
  600. Document.all.KeyText.innerHTML = FileList
  601. Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
  602. countreg.write x
  603. countreg.close
  604. end Sub
  605. '|--------------------------------------------------------------------------------------------------|'
  606.  
  607. Sub SysEdit(n)
  608. on error resume next
  609. x = 0
  610. Shellmehr = 0
  611. ShellStri = Instr(1, lcase(SYSFile), "shell=", 1)
  612. if ShellStri = 0 Then ShellStri = Instr(1, lcase(SYSFile), "shell =", 1)
  613. ShellStro = Instr(ShellStri, SYSFile, vbNewLine, 1)
  614. if ShellStro = 0 then 
  615.     ShellStro = Len(SYSFile)
  616.     Shellmehr = 1
  617. end if
  618. if ShellStro - ShellStri > 6 and not ShellStri = 0 then
  619.     ShellStr = Mid(SYSFile, ShellStri, ShellStro - ShellStri+Shellmehr)
  620.     ExCheck = Instr(1, lcase(ShellStr), "explorer.exe", 1)
  621.     if not ExCheck = 0 then
  622.         ShellStr2 = Trim(Replace(lcase(ShellStr), "explorer.exe", ""))
  623.         if not lcase(ShellStr2) = "shell=" then
  624.             ShellStr = Replace(ShellStr, Chr(34), "'")
  625.             FileList = FileList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & ShellStr & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & ShellStr & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & ShellStr2 & "</DIV>"
  626.             x=x+1
  627.             FileList = FileList & "<DIV> Explorer.exe</DIV>"
  628.             x=x+1
  629.         end if
  630.     elseif not ShellStr = "" and ExCheck = 0 then
  631.         ShellStr = Replace(ShellStr, Chr(34), "'")
  632.         FileList = FileList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & ShellStr & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & ShellStr & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & ShellStr & "</DIV>"
  633.         x=x+1
  634.     end if
  635. end if
  636. Document.all.KeyText.innerHTML = FileList
  637. Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
  638. countreg.write x
  639. countreg.close
  640. End Sub
  641. '|--------------------------------------------------------------------------------------------------|'
  642.  
  643. Sub BatEdit(n)
  644. on error resume next
  645. x = 0
  646. Set FRead = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 1, False)
  647. do
  648.     Zeile = FRead.Readline
  649.     Zeile = Replace(Zeile, chr(34), "'")
  650.     FileList = FileList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & Zeile & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & Zeile & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & Zeile & "</DIV>"
  651.     x=x+1
  652. Loop until FRead.AtEndOfStream
  653. Fread.close
  654. Document.all.KeyText.innerHTML = FileList
  655. Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
  656. countreg.write x
  657. countreg.close
  658. end Sub
  659. '|--------------------------------------------------------------------------------------------------|'
  660.  
  661. Sub CSysEdit(n)
  662. on error resume next
  663. x = 0
  664. Set FRead = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 1, False)
  665. do
  666.     Zeile = FRead.Readline
  667.     Csys = instr(1, lcase(Zeile), "install=", 1)
  668.     if Csys = 0 then Csys = instr(1, lcase(Zeile), "install =", 1)
  669.     if not Csys = 0 then
  670.         Zeile = Replace(Zeile, chr(34), "'")
  671.         FileList = FileList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & Zeile & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & Zeile & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & Zeile & "</DIV>"
  672.         x=x+1
  673.     end if
  674. Loop until FRead.AtEndOfStream
  675. Fread.close
  676. Document.all.KeyText.innerHTML = FileList
  677. Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
  678. countreg.write x
  679. countreg.close
  680. end Sub
  681.  
  682. '|--------------------------------------------------------------------------------------------------|'
  683. Sub Jobedit(n)
  684. on error resume next
  685. x = 0
  686. Set Tasks = myfiles.Getfolder(document.all.Sellnk(n).Title)
  687. Set Jobs = Tasks.Files
  688. For each Job in Jobs
  689.     If InStr(LCase(Job.Name), "desktop.ini") = 0 and InStr(LCase(Job.Name), "sa.dat") = 0 then
  690.         set jobtxt = Job.OpenAsTextStream(1, 0)
  691.         a = Job.size - 16
  692.         jobtxt.skip(a)
  693.         lesen = Hex(Asc(JobTxt.Read(1)))
  694.         jobtxt.close
  695.         if lesen = 6 then
  696.             FileList = FileList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & job.path & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & Job.path & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & Job.Name & " -> wird bei Systemstart ausgefⁿhrt</DIV>"    
  697.             x = x+1
  698.         elseif lesen = 7 then    
  699.             FileList = FileList & "<DIV ID=ColorSelR" & x & " Title=" & chr(34) & job.path & Chr(34) & "><INPUT type=checkbox name=SelReg" & x & " Title=" & chr(34) & Job.path & chr(34) & " onClick=" & Chr(34) & "SubMarkRegSelection" & Chr(34) & "> " & Job.Name & " -> wird bei Anmeldung ausgefⁿhrt</DIV>"
  700.             x = x+1
  701.         end if
  702.     End if
  703. next
  704. Document.all.KeyText.innerHTML = FileList
  705. Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 2, True)
  706. countreg.write x
  707. countreg.close
  708. end sub
  709. '|--------------------------------------------------------------------------------------------------|'
  710. Sub SubMarkRegSelection
  711. on error resume next
  712. m = 0 
  713. ch = 0
  714. cn = 0
  715. Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 1, False)
  716. zahl = countreg.readall
  717. countreg.close
  718. do
  719.     If document.all.Item("SelReg"& m).Checked Then
  720.         Document.all.item("button3").disabled=False
  721.         Document.all.item("button6").disabled=False
  722.         document.all.Item("SelReg" & m).style.backgroundColor="salmon"
  723.         document.all.Item("ColorSelR" & m).style.backgroundColor="salmon"
  724.         ch = 1
  725.         cn = cn+1
  726.     Else
  727.         document.all.Item("SelReg" & m).style.backgroundColor=""
  728.         document.all.Item("ColorSelR" & m).style.backgroundColor=""
  729.         if ch = 0 then Document.all.item("button3").disabled=True
  730.     End If
  731.     if cn > 1 then Document.all.item("button6").disabled=True
  732.     m = m+1
  733. loop until zahl - m = 0
  734. End Sub
  735.  
  736. '|--------------------------------------------------------------------------------------------------|'
  737. Sub Apply
  738. n = 0 
  739. m = 0
  740. on error resume next
  741. Set count = Myfiles.OpentextFile(Tempdir & "\count.txt", 1, False)
  742. zahl = count.readall
  743. count.close
  744. Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 1, False)
  745. zahlreg = countreg.readall
  746. countreg.close
  747. do
  748.     If document.all.Sellnk(n).Checked Then
  749.         do
  750.             If document.all.Item("SelReg" & m).Checked Then
  751.                 
  752.                 If mid(lcase(document.all.Sellnk(n).Title), 1, 3) = "reg" then
  753.                     RegTxtDel n, m
  754.                 elseif mid(lcase(document.all.Sellnk(n).Title), 1, 6) = "script" then
  755.                     ScriptDel n, m
  756.                 elseif lcase(document.all.Sellnk(n).Title) = "userinit" then
  757.                     if InitRoot = "" then
  758.                         InitRoot = myshell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit")
  759.                     end if
  760.                     InitRoot = Replace(InitRoot, "," & document.all.Item("SelReg" & m).Title, "")
  761.                     MyShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit", InitRoot, "REG_SZ"
  762.                 elseif mid(lcase(document.all.Sellnk(n).Title), 1, 4) = "load" then
  763.                     LKey = Mid(document.all.Sellnk(n).Title, 8, len(document.all.Sellnk(n).Title))
  764.                     MyShell.RegDelete LKey
  765.                 elseif (myfiles.FolderExists(document.all.Sellnk(n).Title)) Then
  766.                     MyFiles.DeleteFile(document.all.Item("SelReg" & m).Title)
  767.                 elseif not Instr(1, lcase(document.all.Sellnk(n).Title), "\win.ini", 1) = 0 then
  768.                     AutoEintr = Replace(document.all.Item("SelReg" & m).Title, "'", Chr(34))
  769.                     if not instr(1, WINFile, AutoEintr & vbNewLine) = 0 then
  770.                         WINFile = Replace(WINFile, AutoEintr & vbNewLine, "")
  771.                     else    
  772.                         WINFile = Replace(WINFile, AutoEintr, "")
  773.                     end if
  774.                     WINFile = Replace(WINFile, AutoEintr, "")
  775.                     Set FWrite = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 2, False)
  776.                     FWrite.Write WINFile
  777.                     FWrite.Close
  778.                 elseif not Instr(1, lcase(document.all.Sellnk(n).Title), "\system.ini", 1) = 0 then
  779.                     AutoEintr = Replace(document.all.Item("SelReg" & m).Title, "'", Chr(34))
  780.                     if not Instr(1, lcase(AutoEintr), "explorer.exe", 1) = 0 then
  781.                         SYSFile = Replace(SYSFile, AutoEintr, "Shell=Explorer.exe")
  782.                     end if
  783.                     if not instr(1, SYSFile, AutoEintr & vbNewLine) = 0 then
  784.                         SYSFile = Replace(SYSFile, AutoEintr & vbNewLine, "")
  785.                     else    
  786.                         SYSFile = Replace(SYSFile, AutoEintr, "")
  787.                     end if
  788.                     SYSFile = Replace(SYSFile, AutoEintr, "")
  789.                     Set FWrite = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 2, False)
  790.                     FWrite.Write SYSFile
  791.                     FWrite.Close
  792.                 elseif not Instr(1, lcase(document.all.Sellnk(n).Title), ".bat", 1) = 0 then
  793.                     if FullBatch = "" then
  794.                         Set BatchF = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 1, False)
  795.                         FullBatch = Batchf.Readall
  796.                         Batchf.Close
  797.                     end if
  798.                     BatTxTDel FullBatch, n, m
  799.                 elseif not Instr(1, lcase(document.all.Sellnk(n).Title), ".sys", 1) = 0 then
  800.                     Set FRead = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 1, False)
  801.                     AutoEintr = Replace(document.all.Item("SelReg" & m).Title, "'", Chr(34))
  802.                     SYSFull = Fread.ReadAll
  803.                     if not instr(1, SYSFull, AutoEintr & vbNewLine) = 0 then
  804.                         SYSFull = Replace(SYSFull, AutoEintr & vbNewLine, "")
  805.                     else    
  806.                         SYSFull = Replace(SYSFull, AutoEintr, "")
  807.                     end if
  808.                     SYSFull = Replace(SYSFull, AutoEintr, "")
  809.                     Set FWrite = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 2, False)
  810.                     FWrite.Write SYSFull
  811.                     FWrite.Close
  812.                 elseif not Instr(1, lcase(document.all.Sellnk(n).Title), "bootexecute", 1) = 0 then                
  813.                     y = 0
  814.                     Redim BootExec(0)
  815.                     for x = 0 to Ubound(BootApp)
  816.                         if not BootApp(x) = document.all.Item("SelReg" & m).Title then
  817.                             Redim Preserve BootExec(y)
  818.                             BootExec(y) = BootApp(x)
  819.                             y = y+1
  820.                         end if
  821.                     next
  822.                     Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & "BootEXEC.reg", 2, True)
  823.                     FWrite.Writeline "REGEDIT4"
  824.                     FWrite.Writeline VBCR
  825.                     FWrite.Writeline "[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager]"
  826.                     FWrite.Write Chr(34) & "BootExecute" & chr(34) & "=hex(7):"
  827.                     if not BootExec(0) = "" then                
  828.                         for x = 0 to Ubound(Bootexec)
  829.                             for y = 1 to len(BootExec(x))
  830.                                 Zeichen = Mid(Bootexec(x), y, 1)
  831.                                 hZeichen = Hex(Asc(Zeichen))
  832.                                 FWrite.Write hZeichen & ","
  833.                             next
  834.                             FWrite.Write "00,"
  835.                         next
  836.                         FWrite.Write "00"
  837.                         FWrite.Write VBCR
  838.                         FWrite.Write VBCR
  839.                         FWrite.Close
  840.                     else
  841.                         FWrite.Write  "61,75,74,6f,63,68,65,63,6b,20,61,75,74,6f,63,68,6b,20,2a,00,00"
  842.                         FWrite.Write VBCR
  843.                         FWrite.Write VBCR
  844.                         FWrite.Close
  845.                     end if
  846.                     Redim BootApp(Ubound(BootExec))
  847.                     for x = 0 to Ubound(BootExec)
  848.                         BootApp(x) = BootExec(x)
  849.                     next
  850.                     ret = Myshell.Run("regedit /s " & Tempdir & "\" & "BootEXEC.reg", 0, True)
  851.                     ret = MyFiles.DeleteFile(Tempdir & "\" & "BootEXEC.reg", true)
  852.                 elseif not Instr(1, lcase(document.all.Sellnk(n).Title), "\tasks", 1) = 0 then        
  853.                     ret = myfiles.deletefile(document.all.Item("SelReg" & m).Title, True)
  854.                 end if
  855.             end if
  856.             m = m+1
  857.         loop until zahlreg - m = 0
  858.         if (myfiles.FileExists(Tempdir & "\" & document.all.Sellnk(n).Title & "_neu.reg")) Then
  859.             Bef = myshell.run("regedit /s " & Tempdir & "\" & document.all.Sellnk(n).Title & "_neu.reg", 0, True)
  860.             myfiles.DeleteFile(Tempdir & "\" & document.all.Sellnk(n).Title & "_neu.reg") 
  861.         End if
  862.     exit do
  863.     End If
  864.     n = n+1
  865. loop until zahl - n = 0
  866. window.location.reload
  867. End Sub
  868.  
  869. '|--------------------------------------------------------------------------------------------------|'
  870.  
  871. Sub RegTxtDel(n, m)
  872. org = Replace(document.all.Item("SelReg" & m).Title, "'", Chr(34))
  873. RegStr = Left(org, Instr(1, org, "=", 1))
  874. Keys(n) = Replace(Keys(n), org, RegStr & "-" & VBCR)
  875. Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & document.all.Sellnk(n).Title & "_neu.reg", 2, True)
  876. FWrite.Write Keys(n)
  877. FWrite.Close
  878. End Sub
  879.  
  880. '|--------------------------------------------------------------------------------------------------|'
  881. Sub ScriptDel(n, m)
  882. org = Replace(document.all.Item("SelReg" & m).Title, "'", Chr(34))
  883. SrcKeyo = InstrRev(Keys(n), "]", Instr(1, Keys(n), org, 1), 1)
  884. SrcKeyi = InstrRev(Keys(n), "[", Instr(1, Keys(n), org, 1), 1)
  885. SrcKey = Mid(Keys(n), SrcKeyi+1, SrcKeyo-SrcKeyi-1)
  886. Keys(n) = Replace(Keys(n), SrcKey, "-" & SrcKey)
  887. Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & document.all.Sellnk(n).Title & "_neu.reg", 2, True)
  888. FWrite.Write Keys(n)
  889. FWrite.Close
  890. End Sub
  891.  
  892. '|--------------------------------------------------------------------------------------------------|'
  893.  
  894. Sub BatTxtDel(FullBatch, n, m)
  895. org = Replace(document.all.Item("SelReg" & m).Title, "'", Chr(34))
  896. if not instr(1, FullBatch, org & vbNewLine) = 0 then
  897.     FullBatch = Replace(FullBatch, org & vbNewLine, "")
  898. else    
  899.     FullBatch = Replace(FullBatch, org, "")
  900. end if
  901. FullBatch = Replace(FullBatch, org, "")
  902. Set FWrite = Myfiles.OpentextFile(document.all.Sellnk(n).Title, 2, False)
  903. FWrite.Write FullBatch
  904. FWrite.Close
  905. End Sub
  906.  
  907. '|--------------------------------------------------------------------------------------------------|'
  908.  
  909. Sub SubQuit
  910. on error resume next
  911. Set count = Myfiles.OpentextFile(Tempdir & "\count.txt", 1, False)
  912. zahl = count.readall
  913. count.close
  914. If (myfiles.FileExists(Tempdir & "\count.txt")) then
  915.     myfiles.DeleteFile(Tempdir & "count.txt") 
  916. end if
  917. If (myfiles.FileExists(Tempdir & "\countreg.txt")) then
  918.     myfiles.DeleteFile(Tempdir & "\countreg.txt") 
  919. end if
  920. myfiles.DeleteFile(Tempdir & "\*.reg") 
  921. Set myshell = Nothing
  922. Window.Close
  923. End Sub
  924.  
  925. '|--------------------------------------------------------------------------------------------------|'
  926.  
  927. Sub SetACL
  928. Set MyNetwork = CreateObject("WScript.Network")
  929. Benutzer = MyNetwork.UserName
  930. on error resume next
  931.  
  932. Test = MyShell.Regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\pcw_acl")
  933.  
  934. if Test="" then
  935. Frage = Msgbox("M÷chten Sie den Schreibzugriff auf die Autostart-Quellen verbieten?", 36, "Berechtigung Σndern")
  936. If Frage = 7 then exit Sub
  937. Set BatchACL = MyFiles.OpentextFile(Tempdir & "\BatchACL.BAT", 2, True)
  938.  
  939. BatchACL.Writeline "subinacl /keyreg Hkey_Local_Machine\Software\Microsoft\Windows\CurrentVersion\Run /deny=" & Benutzer & "=SC"
  940. BatchACL.Writeline "subinacl /keyreg Hkey_Local_Machine\Software\Microsoft\Windows\CurrentVersion\Run /deny=System=SC"
  941.  
  942. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /deny=" & Benutzer & "=SC"
  943. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /deny=System=SC"
  944.  
  945. BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run /deny=" & Benutzer & "=SC"
  946. BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run /deny=System=SC"
  947.  
  948. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /deny=" & Benutzer & "=SC"
  949. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /deny=System=SC"
  950.  
  951. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /deny=" & Benutzer & "=SC"
  952. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /deny=System=SC"
  953.  
  954. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /deny=" & Benutzer & "=SC"
  955. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /deny=System=SC"
  956.  
  957. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /deny=" & Benutzer & "=SC"
  958. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /deny=System=SC"
  959.  
  960. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /deny=" & Benutzer & "=SC"
  961. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /deny=System=SC"
  962.  
  963. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /deny=" & Benutzer & "=SC"
  964. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /deny=System=SC"
  965.  
  966. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /deny=" & Benutzer & "=SC"
  967. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /deny=System=SC"
  968.  
  969. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /deny=" & Benutzer & "=SC"
  970. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /deny=System=SC"
  971.  
  972. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System\SCripts /deny=" & Benutzer & "=SC"
  973. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System\SCripts /deny=System=SC"
  974.  
  975. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\Scripts /deny=" & Benutzer & "=SC"
  976. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\Scripts /deny=System=SC"
  977.  
  978. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit /deny=" & Benutzer & "=SC"
  979. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit /deny=System=SC"
  980.  
  981. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\BootExecute /deny=" & Benutzer & "=SC"
  982. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\BootExecute /deny=System=SC"
  983.  
  984. USFD = MyShell.Regread("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup")
  985. SFD = MyShell.Regread("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\ Shell Folders\Startup")
  986. USFM = MyShell.Regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Startup")
  987. SFM = MyShell.Regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Startup")
  988. SFU = MyShell.Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup")
  989. USFU = MyShell.Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup")
  990.  
  991. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup" & chr(34) & " /deny=" & Benutzer & "=SC"
  992. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup" & chr(34) & " /deny=System=SC"
  993.  
  994. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup" & chr(34) & " /deny=" & Benutzer & "=SC"
  995. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup" & chr(34) & " /deny=System=SC"
  996.  
  997. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Startup" & chr(34) & " /deny=" & Benutzer & "=SC"
  998. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Startup" & chr(34) & " /deny=System=SC"
  999.  
  1000. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Startup" & chr(34) & " /deny=" & Benutzer & "=SC"
  1001. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Startup" & chr(34) & " /deny=System=SC"
  1002.  
  1003. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup" & chr(34) & " /deny=" & Benutzer & "=SC"
  1004. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup" & chr(34) & " /deny=System=SC"
  1005.  
  1006. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup" & chr(34) & " /deny=" & Benutzer & "=SC"
  1007. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup" & chr(34) & " /deny=System=SC"
  1008.  
  1009. BatchACL.Writeline "subinacl /file " & windir & "\win.ini /deny=" & Benutzer & "=CW"
  1010. BatchACL.Writeline "subinacl /file " & windir & "\win.ini /deny=System=CW"
  1011.  
  1012. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & userprofile & "\Nabφdka Start\Programy¿Po spuÜt∞nφ" & chr(34) & " /deny=" & Benutzer & "=CW"
  1013. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & userprofile & "\Nabφdka Start\Programy¿Po spuÜt∞nφ" & chr(34) & " /deny=System=CW"
  1014.  
  1015. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & windir & "\Tasks" & chr(34) & " /deny=" & Benutzer & "=CW"
  1016. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & windir & "\Tasks" & chr(34) & " /deny=System=CW"
  1017.  
  1018. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & allusersprofile & "\Nabφdka Start\Programy¿Po spuÜt∞nφ" & chr(34) & " /deny=" & Benutzer & "=CW"
  1019. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & allusersprofile & "\Nabφdka Start\Programy¿Po spuÜt∞nφ" & chr(34) & " /deny=System=CW"
  1020.  
  1021. BatchACL.Writeline "subinacl /subdirectories " & windir & "\Nabφdka Start\Programy¿Po spuÜt∞nφ /deny=" & Benutzer & "=CW"
  1022. BatchACL.Writeline "subinacl /subdirectories " & windir & "\Nabφdka Start\Programy¿Po spuÜt∞nφ /deny=System=CW"
  1023.  
  1024. BatchACL.Writeline "subinacl /file " & windir & "\System.ini /deny=" & Benutzer & "=CW"
  1025. BatchACL.Writeline "subinacl /file " & windir & "\System.ini /deny=System=CW"
  1026.  
  1027. BatchACL.Writeline "subinacl /file " & windir & "\Winstart.bat /deny=" & Benutzer & "=CW"
  1028. BatchACL.Writeline "subinacl /file " & windir & "\Winstart.bat /deny=System=CW"
  1029.  
  1030. BatchACL.Writeline "subinacl /file " & homedrive & "\Autoexec.bat /deny=" & Benutzer & "=CW"
  1031. BatchACL.Writeline "subinacl /file " & homedrive & "\Autoexec.bat /deny=System=CW"
  1032.  
  1033. BatchACL.Writeline "subinacl /file " & homedrive & "\Config.Sys /deny=" & Benutzer & "=CW"
  1034. BatchACL.Writeline "subinacl /file " & homedrive & "\Config.Sys /deny=System=CW"
  1035.  
  1036. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFD & chr(34) & " /deny=" & Benutzer & "=CW"
  1037. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFD & chr(34) & " /deny=System=CW"
  1038.  
  1039. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFM & chr(34) & " /deny=" & Benutzer & "=CW"
  1040. 'atchACL.Writeline "subinacl /subdirectories "&  chr(34) & USFM & chr(34) & " /deny=System=CW"
  1041.  
  1042. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFD & chr(34) & " /deny=" & Benutzer & "=CW"
  1043. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFD & chr(34) & " /deny=System=CW"
  1044.  
  1045. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFM & chr(34) & " /deny=" & Benutzer & "=CW"
  1046. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFM & chr(34) & " /deny=System=CW"
  1047.  
  1048. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFU & chr(34) & " /deny=" & Benutzer & "=CW"
  1049. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFU & chr(34) & " /deny=System=CW"
  1050.  
  1051. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFU & chr(34) & " /deny=" & Benutzer & "=CW"
  1052. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFU & chr(34) & " /deny=System=CW"
  1053.  
  1054. BatchACL.Close
  1055. Set BatchACL = MyFiles.OpentextFile(Tempdir & "\BatchACL.BAT", 1, False)
  1056. t = BatchACL.Readall
  1057. t = replace(t, chr(228), chr(132))
  1058. t = replace(t, chr(246), chr(148))
  1059. t = replace(t, chr(252), chr(129))
  1060. t = replace(t, chr(196), chr(142))
  1061. t = replace(t, chr(214), chr(153))
  1062. t = replace(t, chr(220), chr(154))
  1063. t = replace(t, chr(223), chr(225))
  1064. BatchACL.Close
  1065. Set BatchACL = MyFiles.OpentextFile(Tempdir & "\BatchACL.BAT", 2, False)
  1066. BatchACL.Write t
  1067. BatchACL.Close
  1068.  
  1069. ACL = MyShell.Run("cmd /c " & Tempdir & "\BatchACL.BAT", 1, True)
  1070. MyShell.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\pcw_acl", "1", "REG_SZ"
  1071. msgbox "Die Schreibrechte auf alle Autostart-Quellen wurden dem Benutzer und dem System entzogen" 
  1072. Loesch = MyFiles.Deletefile(Tempdir & "\BatchACL")
  1073.  
  1074. else
  1075. Frage = Msgbox("M÷chten Sie den Schreibzugriff auf die Autostart-Quellen erlauben?", 36, "Berechtigung Σndern")
  1076. If Frage = 7 then exit Sub
  1077. Set BatchACL = MyFiles.OpentextFile(Tempdir & "\BatchACL.BAT", 2, True)
  1078. BatchACL.Writeline "subinacl /keyreg Hkey_Local_Machine\Software\Microsoft\Windows\CurrentVersion\Run /grant=" & Benutzer & "=F"
  1079. BatchACL.Writeline "subinacl /keyreg Hkey_Local_Machine\Software\Microsoft\Windows\CurrentVersion\Run /grant=System=F"
  1080.  
  1081. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /grant=" & Benutzer & "=F"
  1082. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /grant=System=F"
  1083.  
  1084. BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run /grant=" & Benutzer & "=F"
  1085. BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Run /grant=System=F"
  1086.  
  1087. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /grant=" & Benutzer & "=F"
  1088. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /grant=System=F"
  1089.  
  1090. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /grant=" & Benutzer & "=F"
  1091. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /grant=System=F"
  1092.  
  1093. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /grant=" & Benutzer & "=F"
  1094. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /grant=System=F"
  1095.  
  1096. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /grant=" & Benutzer & "=F"
  1097. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices /grant=System=F"
  1098.  
  1099. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /grant=" & Benutzer & "=F"
  1100. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /grant=System=F"
  1101.  
  1102. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /grant=" & Benutzer & "=F"
  1103. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce /grant=System=F"
  1104.  
  1105. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /grant=" & Benutzer & "=F"
  1106. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /grant=System=F"
  1107.  
  1108. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /grant=" & Benutzer & "=F"
  1109. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run /grant=System=F"
  1110.  
  1111. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System\Scripts /grant=" & Benutzer & "=F"
  1112. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System\Scripts /grant=System=F"
  1113.  
  1114. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\Scripts /grant=" & Benutzer & "=F"
  1115. BatchACL.Writeline "subinacl /keyreg HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\Scripts /grant=System=F"
  1116.  
  1117. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit /grant=" & Benutzer & "=F"
  1118. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit /grant=System=F"
  1119.  
  1120. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\BootExecute /grant=" & Benutzer & "=F"
  1121. BatchACL.Writeline "subinacl /keyreg HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\BootExecute /grant=System=F"
  1122.  
  1123. USFD = MyShell.Regread("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup")
  1124. SFD = MyShell.Regread("HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\ Shell Folders\Startup")
  1125. USFM = MyShell.Regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Startup")
  1126. SFM = MyShell.Regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Startup")
  1127. SFU = MyShell.Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup")
  1128. USFU = MyShell.Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup")
  1129.  
  1130. BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup /grant=" & Benutzer & "=F"
  1131. BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup /grant=System=F"
  1132.  
  1133. BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup /grant=" & Benutzer & "=F"
  1134. BatchACL.Writeline "subinacl /keyreg HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup /grant=System=F"
  1135.  
  1136. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Startup" & chr(34) & " /grant=" & Benutzer & "=F"
  1137. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Startup" & chr(34) & " /grant=System=F"
  1138.  
  1139. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Startup" & chr(34) & " /grant=" & Benutzer & "=F"
  1140. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Common Startup" & chr(34) & " /grant=System=F"
  1141.  
  1142. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup" & chr(34) & " /grant=" & Benutzer & "=F"
  1143. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup" & chr(34) & " /grant=System=F"
  1144.  
  1145. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup" & chr(34) & " /grant=" & Benutzer & "=F"
  1146. BatchACL.Writeline "subinacl /keyreg " & chr(34) & "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Startup" & chr(34) & " /grant=System=F"
  1147.  
  1148. BatchACL.Writeline "subinacl /file " & windir & "\win.ini /grant=" & Benutzer & "=F"
  1149. BatchACL.Writeline "subinacl /file " & windir & "\win.ini /grant=System=F"
  1150.  
  1151. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & userprofile & "\Nabφdka Start\Programy¿Po spuÜt∞nφ" & chr(34) & " /grant=" & Benutzer & "=F"
  1152. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & userprofile & "\Nabφdka Start\Programy¿Po spuÜt∞nφ" & chr(34) & " /grant=System=F"
  1153.  
  1154. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & allusersprofile & "\Nabφdka Start\Programy¿Po spuÜt∞nφ" & chr(34) & " /grant=" & Benutzer & "=F"
  1155. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & allusersprofile & "\Nabφdka Start\Programy¿Po spuÜt∞nφ" & chr(34) & " /grant=System=F"
  1156.  
  1157. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & windir & "\Tasks" & chr(34) & " /grant=" & Benutzer & "=F"
  1158. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & windir & "\Tasks" & chr(34) & " /grant=System=F"
  1159.  
  1160. BatchACL.Writeline "subinacl /subdirectories " & windir & "\Nabφdka Start\Programy¿Po spuÜt∞nφ /grant=" & Benutzer & "=F"
  1161. BatchACL.Writeline "subinacl /subdirectories " & windir & "\Nabφdka Start\Programy¿Po spuÜt∞nφ /grant=System=F"
  1162.  
  1163. BatchACL.Writeline "subinacl /file " & windir & "\System.ini /grant=" & Benutzer & "=F"
  1164. BatchACL.Writeline "subinacl /file " & windir & "\System.ini /grant=System=F"
  1165.  
  1166. BatchACL.Writeline "subinacl /file " & windir & "\Winstart.bat /grant=" & Benutzer & "=F"
  1167. BatchACL.Writeline "subinacl /file " & windir & "\Winstart.bat /grant=System=F"
  1168.  
  1169. BatchACL.Writeline "subinacl /file " & homedrive & "\Autoexec.bat /grant=" & Benutzer & "=F"
  1170. BatchACL.Writeline "subinacl /file " & homedrive & "\Autoexec.bat /grant=System=F"
  1171.  
  1172. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFD & chr(34) & " /grant=" & Benutzer & "=F"
  1173. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFD & chr(34) & " /grant=System=F"
  1174.  
  1175. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFM & chr(34) & " /grant=" & Benutzer & "=F"
  1176. BatchACL.Writeline "subinacl /subdirectories "&  chr(34) & USFM & chr(34) & " /grant=System=F"
  1177.  
  1178. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFD & chr(34) & " /grant=" & Benutzer & "=F"
  1179. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFD & chr(34) & " /grant=System=F"
  1180.  
  1181. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFM & chr(34) & " /grant=" & Benutzer & "=F"
  1182. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFM & chr(34) & " /grant=System=F"
  1183.  
  1184. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFU & chr(34) & " /grant=" & Benutzer & "=F"
  1185. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & USFU & chr(34) & " /grant=System=F"
  1186.  
  1187. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFU & chr(34) & " /grant=" & Benutzer & "=F"
  1188. BatchACL.Writeline "subinacl /subdirectories " & chr(34) & SFU & chr(34) & " /grant=System=F"
  1189. BatchACL.Close
  1190.  
  1191. Set BatchACL = MyFiles.OpentextFile(Tempdir & "\BatchACL.BAT", 1, False)
  1192. t = BatchACL.Readall
  1193. t = replace(t, chr(228), chr(132))
  1194. t = replace(t, chr(246), chr(148))
  1195. t = replace(t, chr(252), chr(129))
  1196. t = replace(t, chr(196), chr(142))
  1197. t = replace(t, chr(214), chr(153))
  1198. t = replace(t, chr(220), chr(154))
  1199. t = replace(t, chr(223), chr(225))
  1200. BatchACL.Close
  1201. Set BatchACL = MyFiles.OpentextFile(Tempdir & "\BatchACL.BAT", 2, False)
  1202. BatchACL.Write t
  1203. BatchACL.Close
  1204.  
  1205. ACL = MyShell.Run("cmd /c " & Tempdir & "\BatchACL.BAT", 1, True)
  1206. MyShell.Regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\pcw_acl"
  1207. msgbox "Die Schreibrechte auf alle Autostart-Quellen wurden dem Benutzer und dem System erteilt"
  1208. Loesch = MyFiles.Deletefile(Tempdir & "\BatchACL")
  1209. end if
  1210. SubInitFenster
  1211. End Sub
  1212. '|--------------------------------------------------------------------------------------------------|'
  1213.  
  1214. Sub Hilfe
  1215. H = Msgbox("Wenn Sie ⁿber die SchaltflΣche " & chr(34) & "Berechtigungen" & chr(34) & ", das Schreibrecht auf alle Autostart-Quelle entfernen m÷chten, mⁿssen Sie " &_
  1216. "Windows 2000 oder XP auf einer NTFS-Partition verwenden. ZusΣtzlich mⁿssen Sie das englischsprachige Microsoft-Tool Subinacl.EXE von www.pcwelt.de/sac herunterladen " &_
  1217. "(371 KB), installieren, und die EXE-Datei dann in Ihr Windows-Verzeichnis kopieren.",, "Hilfe")
  1218. End Sub
  1219. '|--------------------------------------------------------------------------------------------------|'
  1220.  
  1221. Sub Define
  1222. n = 0 
  1223. m = 0
  1224. on error resume next
  1225. Set count = Myfiles.OpentextFile(Tempdir & "\count.txt", 1, False)
  1226. zahl = count.readall
  1227. count.close
  1228. Set countreg = Myfiles.OpentextFile(Tempdir & "\countreg.txt", 1, False)
  1229. zahlreg = countreg.readall
  1230. countreg.close
  1231. do
  1232.     If document.all.Sellnk(n).Checked Then
  1233.         do
  1234.             If document.all.Item("SelReg" & m).Checked Then
  1235.                 Ort = document.all.Sellnk(n).Title
  1236.                 Eintrag = document.all.Item("SelReg" & m).Title
  1237.                 isPfad = instr(1, Eintrag, ":\", 1)
  1238.                 if myfiles.FolderExists(Ort) then
  1239.                     Set lnk = myfiles.GetFile(Eintrag)
  1240.                     if LCase(myfiles.GetExtensionName(lnk)) = "lnk" Then
  1241.                         Set Verk = myshell.CreateShortcut(lnk)
  1242.                         Target = Verk.TargetPath
  1243.                         RevDot = Instrrev(Target, ".", -1, 1)
  1244.                         ProzessPfad = Mid(Target, 1, RevDot+3)
  1245.                         'ProzessName = Myfiles.GetBaseName(ProzessPfad)
  1246.                         ProzessName = Myfiles.GetFileName(ProzessPfad)
  1247.                     else
  1248.                         ProzessName = Eintrag
  1249.                     end if
  1250.                 elseif not IsPfad = 0 then
  1251.                     PfadEnde = instrrev(Eintrag, ".", -1, 1)
  1252.                     ProzessP = Mid(Eintrag, IsPfad-1, PfadEnde-IsPfad+5)
  1253.                     ProzessPfad = Myfiles.GetAbsolutePathName(ProzessP)
  1254.                     'ProzessName = Myfiles.GetBaseName(ProzessPfad)
  1255.                     ProzessName = Myfiles.GetFileName(ProzessPfad)
  1256.                 
  1257.                 else
  1258.                     ProzessName = Eintrag
  1259.                 end if
  1260.             end if
  1261.             m = m+1
  1262.         loop until zahlreg - m <= 0    
  1263.     end if
  1264.     n=n+1
  1265. loop until zahl - n <= 0
  1266. ProzessName = Replace(ProzessName, " ", "%20", 1)
  1267. URL = "http://www.processlibrary.com/directory/files/" & lcase(ProzessName) & "/index.php"   
  1268.  
  1269. MyShell.Run URL
  1270. End Sub
  1271. '|--------------------------------------------------------------------------------------------------|'
  1272.  
  1273. </SCRIPT>
  1274.   </HEAD>
  1275.    <BODY onload="SubInitFenster" scroll="no">
  1276.    <DIV ID=tableRegKey></DIV>
  1277.    <HR style=" & Chr(34) & "height:5px; color:black" & Chr(34) &"></BR>
  1278.    <INPUT Type=button value="Entfernen" name=button3 size=52 onClick="Apply">
  1279.    <INPUT Type=button value="Berechtigungen..." name=button4 size=52 onClick="SetACL">
  1280.    <INPUT Type=button value="?" name=button5 size=52 onClick="Hilfe">
  1281.    <INPUT Type=button value="Definieren" name=button6 size=52 onClick="Define">
  1282.    <INPUT Type=button value="Quit" name=button2 size=32 onClick="SubQuit"></BR></BR>
  1283.    <Input ID=Rightlabel Type=text Value="" style="Background-Color:buttonface; Border:none; Color:Blue" Size=98 READONLY></BR></BR>
  1284.    <div ID=KeyText style="position:relative; top:0px; left:0px; width:785px; height:270px; overflow-y:auto"></div>
  1285.   </BODY>
  1286. </HTML>